home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 72 / 072.d81 / loadstar briefs (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  36 lines

  1. 10 poke53281,0:poke53280,0:print"[147][159]":poke56,160:clr
  2. 20 fori=1to5:readm$(i),n$(i):next
  3. 30 data"   [198]eedback [205]achine   ",machine
  4. 32 data"     [198]ont [195]hanger     ",font changer
  5. 34 data"  [212]ext [208]rinter 1990   ",text printer
  6. 36 data"    [204][207][193][196][211][212][193][210] [198]orms    ",loadstar forms
  7. 38 data"  [210]eturn to [204][207][193][196][211][212][193][210]  ",hello connect
  8. 40 print"     [204] [207] [193] [196] [211] [212] [193] [210]    [194] [210] [201] [197] [198] [211]"
  9. 45 print"[154]     [193] [195]ollection of [200]andy [208]rograms
  10. 47 [153]"   for the str$iscriminate (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) (NULL)ser"
  11. 50 [153][163]6)"sysortantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  12. 60 [129]i[178]0[164]6:[153][163]6)"(NULL)"[163]33)"(NULL)":[130]
  13. 70 [153][163]6)"/tantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  14. 80 [151]214,22:[153]:[153]"for    (NULL)se len(NULL)(NULL)(NULL) (NULL)(NULL)/str$(NULL)(NULL)(NULL)for and then (NULL)val(NULL)(NULL)(NULL)(NULL)"
  15. 90 [151]214,7:[153]""
  16. 100 [129]i[178]1[164]5:[153][163]9)m$(i):[130]
  17. 110 h[178]6:k[178]1
  18. 120 [151]214,h[170]k:[153]
  19. 130 [153][163]9)"open"m$(k)"on"
  20. 140 [151]198,0
  21. 150 [161]a$:[139]a$[179][177]"on"[175]a$[179][177]""[175]a$[179][177][199](13)[167]150
  22. 160 [139]a$[178][199](13)[167]200
  23. 170 [153][163]9)""m$(k)
  24. 180 [139]a$[179][177]"on"[167]190
  25. 185 k[178]k[171]1:[139]k[179]1[167]k[178]5
  26. 187 [137]120
  27. 190 k[178]k[170]1:[139]k[177]5[167]k[178]1
  28. 195 [137]120
  29. 200 [153][163]9)""m$(k)
  30. 210 [151]214,14:[153]
  31. 220 [153]"stopload"[199](34)n$(k)[199](34)",8"
  32. 230 [153]"run"
  33. 240 [151]214,12:[153]
  34. 250 [151]631,13:[151]632,13:[151]198,2:[128]
  35. 10000 [159]15,8,15,"s0:loadstar briefs":[160]15:[148]"loadstar briefs",8:[128]
  36.